home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / rettig.arc / TRSOURCE.EXE / TRLIB.H < prev    next >
Text File  |  1990-10-22  |  13KB  |  387 lines
  1. /**********
  2. *
  3. *   trlib.h
  4. *
  5. *   Header file for all TRLIB.C modules.
  6. *
  7. *   By: Tom Rettig, Leonard Zerman, Ralph Davis
  8. * 
  9. *   Placed in the public domain by Tom Rettig Associates, 10/22/1990.
  10. *
  11. **********/
  12.  
  13. #define TRLIBVERS    "TRLIB, Clipper Edition, Version 1.20"
  14. #define TRTYPE       void pascal
  15. #define ABRENDCHAR   '.'                      /* used in street() */
  16. #define ABS(p)       (((p)<0)?-(p):(p))
  17. #define ADTOI(p)     (int) ((p)-('0'))        /* ascii digit to int */
  18. #define ADTOL(p)     (long) ((p)-('0'))       /* ascii digit to long*/
  19. #define BLANKDS      "00000000"
  20. #define COLOR_VID_AD 0xB800
  21. #define DEFAULT      0
  22. #define DIGIT(p)     (char) ((p)+('0'))       /* int digit to ascii */
  23. #define DONE         "DONE"    /* for filewrite() return successful */
  24. #define ERROR        0
  25. #define ERRORNEG     -1
  26. #define ERRORNEGL    -1L
  27. #define FALSE        (0)
  28. #define HYPHEN       "-"       /* string, not char, for password array */
  29. #define MAXEXPAND    16        /* maximum number of spaces to replace tabs */
  30. #define MAXELEM      1000
  31. #define MONO_VID_AD  0xB000
  32. #define NULLC        '\0'      /* use to terminate char arrays as strings */
  33. #define NULLLONG     0L        /* for NULL pointer return */
  34. #define NULLS        ""        /* use with _retc() to return null string */
  35. #define PW_MIN_LEN   3         /* number of chars in password */
  36. #define PW_MIN_NUM   10000000  /* number of digits in password return number */
  37. #define SPACEC       ' '
  38. #define TRUE         (1)
  39. #define TWO_BILLION  2000000000               /* for base.c */
  40. #define UPPER        ('a' - 'A')
  41. #define ZEROC        '0'
  42.  
  43. /* Replace #define macros in Microsoft and Clipper */
  44.  
  45. #define isalpha(p)   ((('A'<=(p)&&(p)<= 'Z')||('a'<= (p)&&(p)<='z'))\
  46.                                                      ? TRUE : FALSE) 
  47. #define isdigit(p)   (('0'<=(p)&&(p)<='9') ? TRUE : FALSE)
  48.  
  49. #define isspace(p)   ((((p) == ' ')||((p) == '\n')||((p) == '\t')||\
  50.                        ((p) == '\f')||((p) == '\r')) ? TRUE : FALSE)
  51.  
  52. #define islower(p)   ( 'a' <= (p) && (p) <= 'z' )
  53.  
  54. #define toupper(p)   ( islower(p) ? ((p) - UPPER) : ((p)) )
  55.  
  56. /* valid structure of 8 byte time string is "##:##:##" */
  57. #define TIMELEN      8 /* number of bytes in time string not including null */
  58. #define TIMEDELIM    ':'   /* character used by DELIM_1 and DELIM_2 */
  59. #define TDELIMS(p)   ( (p)[TDELIM_1]==TIMEDELIM && (p)[TDELIM_2]==TIMEDELIM )
  60. #define HOURS        0
  61. #define HOUR         1
  62. #define TDELIM_1     2
  63. #define MINS         3
  64. #define MIN          4
  65. #define TDELIM_2     5
  66. #define SECS         6
  67. #define SEC          7
  68.  
  69. #define ISHOURS(p)   (( (p)[HOURS] == '2' && \
  70.                         (p)[HOUR ] >= '0' && (p)[HOUR ] <= '3'  ) || \
  71.                      ( ((p)[HOURS] == '0' || (p)[HOURS] == '1') && \
  72.                         (p)[HOUR ] >= '0' && (p)[HOUR ] <= '9'  ))
  73.  
  74. #define ISMINS(p)    ((p)[MINS]>='0' && (p)[MINS]<='5' &&\
  75.                       (p)[MIN ]>='0' && (p)[MIN ]<='9')
  76.  
  77. #define ISSECS(p)    ((p)[SECS]>='0' && (p)[SECS]<='5' &&\
  78.                       (p)[SEC ]>='0' && (p)[SEC ]<='9')
  79.  
  80. #define VALIDTIME(p) (TDELIMS(p) && ISHOURS(p)  &&\
  81.                        ISMINS(p)  && ISSECS(p)  &&\
  82.                        (p)[TIMELEN]==NULLC)
  83.  
  84. #define ISTS(p)      (ISDIGIT(p[HOURS]) && ISDIGIT(p[HOUR]) &&\
  85.                       ISDIGIT(p[MINS ]) && ISDIGIT(p[MIN ]) &&\
  86.                       ISDIGIT(p[SECS ]) && ISDIGIT(p[SEC ]) &&\
  87.                       TDELIMS(p) && (p)[TIMELEN]==NULLC)
  88.  
  89. /* valid structure of 10 byte zip code is "#####-####" */
  90. #define ZIPLEN       10
  91. #define ZIPDELIM     '-'
  92. #define ZDELIM       5
  93.  
  94. #define VALIDZIP1(p) ((p)[0]>='0' && (p)[0]<='9' &&\
  95.                       (p)[1]>='0' && (p)[1]<='9' &&\
  96.                       (p)[2]>='0' && (p)[2]<='9' &&\
  97.                       (p)[3]>='0' && (p)[3]<='9' &&\
  98.                       (p)[4]>='0' && (p)[4]<='9')
  99.  
  100. #define VALIDZIP2(p) ((p)[ZDELIM]==ZIPDELIM      &&\
  101.                       (p)[6]>='0' && (p)[6]<='9' &&\
  102.                       (p)[7]>='0' && (p)[7]<='9' &&\
  103.                       (p)[8]>='0' && (p)[8]<='9' &&\
  104.                       (p)[9]>='0' && (p)[9]<='9' &&\
  105.                       (p)[ZIPLEN]==NULLC)
  106.  
  107. /* valid structure of 13 byte telephone number is "(###)###-####" */
  108. #define PHONLEN       13
  109. #define PHONDELIM_1   '('
  110. #define PHONDELIM_2   ')'
  111. #define PHONDELIM_3   '-'
  112. #define PDELIM_1      0
  113. #define PDELIM_2      4
  114. #define PDELIM_3      8
  115.  
  116. #define VALIDPHON1(p) ((p)[PDELIM_1]==PHONDELIM_1 &&\
  117.                        (p)[ 1]>='0' && (p)[ 1]<='9' &&\
  118.                        (p)[ 2]>='0' && (p)[ 2]<='9' &&\
  119.                        (p)[ 3]>='0' && (p)[ 3]<='9' &&\
  120.                        (p)[PDELIM_2]==PHONDELIM_2)
  121.  
  122. #define VALIDPHON2(p) ((p)[ 5]>='0' && (p)[ 5]<='9' &&\
  123.                        (p)[ 6]>='0' && (p)[ 6]<='9' &&\
  124.                        (p)[ 7]>='0' && (p)[ 7]<='9' &&\
  125.                        (p)[PDELIM_3]==PHONDELIM_3)
  126.  
  127. #define VALIDPHON3(p) ((p)[ 9]>='0' && (p)[ 9]<='9' &&\
  128.                        (p)[10]>='0' && (p)[10]<='9' &&\
  129.                        (p)[11]>='0' && (p)[11]<='9' &&\
  130.                        (p)[12]>='0' && (p)[12]<='9' &&\
  131.                        (p)[PHONLEN]==NULLC)
  132.  
  133. /* valid structure of 11 byte social security number is "###-##-####" */
  134. #define SSNUMLEN      11
  135. #define SSNUMDELIM    '-'
  136. #define SSDELIM_1     3
  137. #define SSDELIM_2     6
  138.  
  139. #define VALIDSS1(p)   ((p)[ 0]>='0' && (p)[ 0]<='9' &&\
  140.                        (p)[ 1]>='0' && (p)[ 1]<='9' &&\
  141.                        (p)[ 2]>='0' && (p)[ 2]<='9' &&\
  142.                        (p)[SSDELIM_1]==SSNUMDELIM   &&\
  143.                        (p)[ 4]>='0' && (p)[ 4]<='9' &&\
  144.                        (p)[ 5]>='0' && (p)[ 5]<='9')
  145.  
  146. #define VALIDSS2(p)   ((p)[SSDELIM_2]==SSNUMDELIM   &&\
  147.                        (p)[ 7]>='0' && (p)[ 9]<='9' &&\
  148.                        (p)[ 8]>='0' && (p)[ 7]<='9' &&\
  149.                        (p)[ 9]>='0' && (p)[10]<='9' &&\
  150.                        (p)[10]>='0' && (p)[11]<='9' &&\
  151.                        (p)[SSNUMLEN]==NULLC)
  152.  
  153. #define ISLPYR(yr)    ((yr)>0 && (((yr)%4==0&&(yr)%100!=0) || (yr)%400==0))
  154.  
  155. #define ISMONTH(p)    ((p)>=1 && (p)<=12)       /* valid month */
  156.  
  157. #define ISYEAR(p)     ((p)>=1 && (p)<=9999)     /* valid year */
  158.  
  159. #define ISDS(p)       ( ISDIGIT(p[0]) && ISDIGIT(p[1]) &&\
  160.                         ISDIGIT(p[2]) && ISDIGIT(p[3]) &&\
  161.                         ISDIGIT(p[4]) && ISDIGIT(p[5]) &&\
  162.                         ISDIGIT(p[6]) && ISDIGIT(p[7]) && !p[8] )
  163.  
  164. #define DSYEAR(p)     ( (ADTOI(p[0])*1000) +\
  165.                         (ADTOI(p[1])* 100) +\
  166.                         (ADTOI(p[2])*  10) +\
  167.                         (ADTOI(p[3])) )         /* ds year to int */
  168.  
  169. #define DSMONTH(p)   ( (ADTOI(p[4])*  10) +\
  170.                        (ADTOI(p[5])) )         /* ds month to int */
  171.  
  172. #define DSDAY(p)     ( (ADTOI(p[6])*  10) +\
  173.                        (ADTOI(p[7])) )         /* ds day to int */
  174.  
  175. #define ISDIGIT(p)   ((p)>='0' && (p)<='9')    /* valid digit */
  176. #define MK_FP(seg,ofs)    ((void far *)(((unsigned long)(seg) << 16) | (ofs)))
  177.  
  178. /* #defines Months for generic use in programs */
  179. #define MONTH0       ""
  180. #define MONTH1       "January"
  181. #define MONTH2       "February"
  182. #define MONTH3       "March"
  183. #define MONTH4       "April"
  184. #define MONTH5       "May"
  185. #define MONTH6       "June"
  186. #define MONTH7       "July"
  187. #define MONTH8       "August"
  188. #define MONTH9       "September"
  189. #define MONTH10      "October"
  190. #define MONTH11      "November"
  191. #define MONTH12      "December"
  192.  
  193. /* #defines for _tr_reg.c */
  194.  
  195. #define REG_AX  0
  196. #define REG_BX  1
  197. #define REG_CX  2
  198. #define REG_DX  3
  199. #define REG_SP  4
  200. #define REG_BP  5
  201. #define REG_SI  6
  202. #define REG_DI  7
  203. #define REG_DS  8
  204. #define REG_ES  9
  205. #define REG_SS 10
  206. #define REG_CS 11
  207. #define REG_IP 12
  208. #define REG_FF 13
  209.  
  210. /* #defines for tomoney() */
  211. #define DECPOINT     '.'  /* separates dollars and cents */
  212. #define INPUTMAX     32   /* chars in input string  */
  213. #define OUTPUTMAX    256  /* chars in output string */ 
  214. #define DECIMAX      2    /* number of decimal places  */ 
  215. #define PTRMAX       64   /* numper of pointers to output words */ 
  216. #define NUM_OVRFLW   "****************" /* overflow condition */ 
  217. #define ONES(p)   ((int)(p)[-1]-('0'))  /* convert first ascii digit to int */
  218. #define TENS(p)   ((int)(p)[-2]-('0'))  /* convert second ascii digit to int */
  219. #define HUNS(p)   ((int)(p)[-3]-('0'))  /* convert third ascii digit to int */
  220.  
  221. /* #defines for capfirst() */
  222. #define UC1          'A'
  223. #define UC2          'Z' 
  224. #define LC1          'a' 
  225. #define LC2          'z' 
  226. #define CASEDIFF     (LC1 - UC1)  
  227.  
  228.  
  229. /* #defines for file attribute used by _tr_creat() */
  230. #define FL_NORMAL    0
  231. #define FL_RDONLY    1
  232. #define FL_HIDDEN    2
  233. #define FL_SYSTEM    4
  234. #define FL_VOLUME    8
  235. #define FL_DIR      16
  236. #define FL_ARCHIVE  32
  237.  
  238. /* #defines for file mode used by _tr_open() */
  239. #define READONLY     0
  240. #define WRITEONLY    1
  241. #define READWRITE    2
  242. #define EOF_MARK     0x1A
  243. #define FILEERROR    -1
  244.  
  245. /* Error Message function numbers */
  246. #define E_PREFIX     0
  247. #define E_SYNTAX     1
  248. #define E_ALLOC      2
  249. #define E_FOPEN      3
  250. #define E_FSEEK      4
  251. #define E_FREAD      5
  252. #define E_FWRITE     6 
  253. #define E_FCLOSE     7
  254.  
  255. /* _parinfo types */
  256. #define UNDEF        0
  257. #define CHARACTER    1
  258. #define NUMERIC      2
  259. #define LOGICAL      4
  260. #define DATE         8
  261. #define ALIAS       16
  262. #define MPTR        32   /* bitwise or'ed with type for pass by reference */
  263. #define MEMO        65
  264. #define WORD       128
  265. #define ARRAY      512
  266.  
  267. /* parameter check macros */
  268. #define PCOUNT      (_parinfo(0))
  269. #define ISCHAR(n)   (_parinfo(n) & CHARACTER)
  270. #define ISNUM(n)    (_parinfo(n) & NUMERIC)
  271. #define ISLOG(n)    (_parinfo(n) & LOGICAL)
  272. #define ISDATE(n)   (_parinfo(n) & DATE)
  273. #define ISMEMO(n)   (_parinfo(n) & MEMO)
  274. #define ISBYREF(n   (_parinfo(n) & MPTR)
  275. #define ISARRAY(n)    (_parinfo(n) & ARRAY)
  276. #define ALENGTH(n)    (_parinfa(n, 0))
  277.  
  278. /* uses internal functions of the C compiler; source code not supplied */
  279. #define _tr_fabs(p)       (((p)<0.0)?-1.0*(p):(p))
  280.  
  281. #define _tr_atof     atof
  282. #define _tr_pow      pow
  283. #define _tr_log      log
  284. #define _tr_fmod     fmod
  285. #define _tr_modf     _modf
  286. #define _tr_ceil     ceil
  287. #define _tr_floor    floor
  288. #define _tr_sqrt     sqrt
  289. #define _tr_strrchr  strrchr
  290. #define _tr_strncpy  strncpy
  291. #define _tr_allocmem _exmgrab
  292. #define _tr_freemem  _exmback
  293.  
  294. /* uses internal functions of the Clipper compiler; source code not supplied */
  295. #define _tr_ntoa     _ntoa
  296.  
  297. /* parameter count/type */
  298. extern int     _parinfo();
  299. extern int     _parinfa();
  300.  
  301. /* parameter values */
  302. extern char   *_parc();
  303. extern char   *_pards();       /* date string */
  304. extern int     _parl();        /* logical */
  305. extern int     _parni();
  306. extern int     _parcsiz();
  307. extern int     _parclen();
  308. extern long    _parnl();
  309. extern double  _parnd();
  310.             
  311. /* function return values */
  312. extern void _ret();                 /* procedure (DO) return */
  313. extern void _retc();                /* character */
  314. extern void _retclen(char *, int);
  315. extern void _retds();               /* date string */
  316. extern void _retl();                /* logical */
  317. extern void _retnd();               /* double */
  318. extern void _retnl();               /* long */
  319. extern void _retni();               /* integer */
  320. /* one and only one of the _ret*() functions must used */
  321.  
  322. /* character externals */
  323. extern char *_tr_crypt();
  324. extern char *_tr_errmsgs();
  325. extern char *_tr_getenv();
  326. extern char *_tr_makedate();
  327. extern char *_tr_stpchr();
  328. extern char *_tr_strcat();
  329. extern char *_tr_strcpy();
  330. extern char *_tr_strncpy();
  331. extern char *_tr_strrchr();
  332. extern char *_tr_toup();
  333. extern char *_tr_hexasm();
  334.  
  335. /* double externals */
  336. extern double _tr_atof();
  337. extern double _tr_fmod();
  338. extern double _tr_frexp();
  339. extern double _tr_htod();
  340. extern double _tr_infinity();
  341. extern double _tr_itod();
  342. extern double _tr_log();
  343. extern double _tr_ltod();
  344. extern double _tr_modf();
  345. extern double _tr_pow();
  346. extern double _tr_round();
  347. extern double _tr_sqrt();
  348. extern double ceil();
  349. extern double floor();
  350.  
  351. /* int externals */
  352. extern int _tr_doscnf();
  353. extern int _tr_atoi();
  354. extern int _tr_close();
  355. extern int _tr_creat();
  356. extern int _tr_dtoi();
  357. extern int _tr_htoi();
  358. extern int _tr_isdsvalid();
  359. extern int _tr_open();
  360. extern int _tr_read();
  361. extern int _tr_reg();
  362. extern int _tr_strcmp();
  363. extern int _tr_strlen();
  364. extern int _tr_strncmp();
  365. extern int _tr_write();
  366.  
  367. /* long externals */
  368. extern long _tr_dtol();
  369. extern long _tr_fs();
  370. extern long _tr_htol();
  371. extern long _tr_lseek();
  372. extern long _tr_pnum();
  373.  
  374. /* no return externals */
  375. extern _tr_ntoa();
  376.  
  377. /* clippers memory allocation functions */
  378. extern unsigned char *_exmgrab();
  379. extern void _exmback();
  380. extern unsigned strlen();
  381. typedef unsigned char byte;
  382. typedef unsigned int quant;
  383. typedef int Boolean;
  384.  
  385. /* eof */
  386.  
  387.